home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / KEYBOARD TUTOR.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  52 lines
  1. 1  REM ****COPYRIGHT NOTICE****
  2. 2  REM *                      *
  3. 3  REM *  COPYRIGHT 1982  BY  *
  4. 4  REM *      BILL HEMMEL     *
  5. 5  REM *   SOFTART SOFTWARE   *
  6. 6  REM *     P. O. BOX 417    *
  7. 7  REM *  CARVER, MA. 02360   *
  8. 8  REM * ALL RIGHTS RESERVED  *
  9. 9  REM ************************
  10. 10 D$ =  CHR$(4): PRINT D$;"BLOAD SH"
  11. 11  POKE 232,0: POKE 233,96
  12. 12  SCALE= 3: ROT= 0: HCOLOR= 3
  13. 13  HIMEM: 8191
  14. 14  HGR : HCOLOR= 3: SCALE= 1: ROT= 0
  15. 15  PRINT : PRINT : PRINT : PRINT 
  16. 16 A = 10:B = 10: FOR K = 0 TO 11: GOSUB 30: GOSUB 33: NEXT 
  17. 17 A = 17:B = 35
  18. 18  FOR K = 0 TO 10: GOSUB 30: GOSUB 33: NEXT 
  19. 19 A = 22:B = 60
  20. 20  FOR K = 0 TO 11: GOSUB 30: GOSUB 33: NEXT 
  21. 21 A = 30:B = 85
  22. 22  FOR K = 0 TO 9: GOSUB 30: GOSUB 33: NEXT 
  23. 23  HPLOT 51,110 TO 215,110 TO 215,120 TO 51,120 TO 51,110
  24. 24  GOSUB 33
  25. 25  HPLOT 248,35 TO 275,35 TO 275,53 TO 248,53 TO 248,35
  26. 26  GOSUB 33
  27. 27  HPLOT 0,85 TO 24,85 TO 24,103 TO 0,103 TO 0,85: HPLOT 242,85 TO 268,85 TO 268,103 TO 242,103 TO 242,85
  28. 28 B =  -16368:C =  -868
  29. 29  GOTO 34
  30. 30  HPLOT A,B TO A +16,B TO A +16,B +18 TO A,B +18 TO A,B
  31. 31 A = A +21
  32. 32  RETURN 
  33. 33 Q =  PEEK( -16336):Q =  PEEK( -16335): FOR T = 0 TO 100: NEXT : RETURN 
  34. 34  FOR K = 0 TO 7: READ L,X,Y: DRAW L AT X,Y: GOSUB 33: GOSUB 33: GOSUB 33: XDRAW L AT X,Y: DRAW L AT X,Y -1
  35. 35  XDRAW L AT X,Y -1: DRAW L AT X,Y: NEXT 
  36. 36  RESTORE : FOR Z = 0 TO 500: NEXT : FOR K = 0 TO 7: READ L,X,Y: XDRAW L AT X,Y: FOR Z = 0 TO 200: NEXT : NEXT 
  37. 37  FOR K = 0 TO 7: READ L,X,Y: DRAW L AT X,Y: GOSUB 33: GOSUB 33: NEXT 
  38. 38  INVERSE : PRINT "COPYRIGHT 1982     BY       BILL HEMMEL": NORMAL 
  39. 39  PRINT : PRINT "WOULD YOU LIKE SOUND? (Y/N)  ";: GET A$
  40. 40  IF A$ = "Y"  OR A$ = "N"  THEN  POKE ( -16368),0: GOTO 43
  41. 42  PRINT : PRINT : GOTO 39
  42. 43  PRINT : PRINT 
  43. 44  PRINT : PRINT "PRESS K TO LEARN THE KEYBOARD, OR"
  44. 45  PRINT "      P  FOR 'PHANTOM' KEYS": GET V$
  45. 46  IF V$ = "K"  OR V$ = "P"  THEN 49
  46. 48  GOTO 43
  47. 49  FOR K = 0 TO 7: READ L,X,Y: XDRAW L AT X,Y: NEXT 
  48. 50  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  49. 51  PRINT : PRINT : PRINT : PRINT  CHR$(4)"RUN";A$V$
  50. 52  DATA   44,174,65,38,64,40,58,127,40,35,119,90,48,190,40,34,27,65,51,85,40,37,69,65
  51. 53  DATA   44,69,65,38,90,65,58,111,65,35,132,65,48,153,65,34,174,65,51,195,65,37,216,65
  52. 54  DATA  44,69,65,38,90,65,58,111,65,35,132,65,48,153,65,34,174,65,51,195,65,37,216,65